home *** CD-ROM | disk | FTP | other *** search
/ Whiteline: delta / whiteline CD Series - delta.iso / tex / style / misc / pi.sty < prev    next >
Text File  |  1995-11-25  |  4KB  |  142 lines
  1. \def\fileversion{v1}
  2. \def\filedate{91/12/04}
  3. \immediate\write\sixt@@n{File: `pi.sty' \fileversion\space <\filedate> (SPQR)}
  4. % Sebastian Rahtz
  5. % 5 Granary Court
  6. % St Andrewgate
  7. % York Y01 2JR
  8. %
  9. %spqr@uk.ac.soton.ecs
  10. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  11. %%
  12. %% AMS symbol font families A and B
  13. %%
  14. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  15.  
  16. \new@fontshape{msa}{m}{n}{%
  17.    <5>msam5%
  18.    <6>msam6%
  19.    <7>msam7%
  20.    <8>msam8%
  21.    <9>msam9%
  22.    <10>msam10%
  23.    <11>msam10 at10.95pt%
  24.    <12>msam10 at12pt%
  25.    <14>msam10 at14.4pt%
  26.    <17>msam10 at17.28pt%
  27.    <20>msam10 at20.74pt%
  28.    <25>msam10 at24.88pt}{}
  29.  
  30. \extra@def{msa}{}{}
  31.  
  32. \new@fontshape{msb}{m}{n}{%
  33.    <5>msbm5%
  34.    <6>msbm6%
  35.    <7>msbm7%
  36.    <8>msbm8%
  37.    <9>msbm9%
  38.    <10>msbm10%
  39.    <11>msbm10 at10.95pt%
  40.    <12>msbm10 at12pt%
  41.    <14>msbm10 at14.4pt%
  42.    <17>msbm10 at17.28pt%
  43.    <20>msbm10 at20.74pt%
  44.    <25>msbm10 at24.88pt}{}
  45.  
  46. \extra@def{msb}{}{}
  47.  
  48. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  49. %%
  50. %% Euler (German) Fraktur family
  51. %%
  52. %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  53.  
  54. \new@fontshape{euf}{m}{n}{%
  55.    <5>eufm5%
  56.    <6>eufm6%
  57.    <7>eufm7%
  58.    <8>eufm8%
  59.    <9>eufm9%
  60.    <10>eufm10%
  61.    <11>eufm10 at10.95pt%
  62.    <12>eufm10 at12pt%
  63.    <14>eufm14 at14.4pt%
  64.    <17>eufm14 at17.28pt%
  65.    <20>eufm14 at20.74pt%
  66.    <25>eufm14 at24.88pt}{}
  67.  
  68. %%%%%% bold series
  69.  
  70. \new@fontshape{euf}{b}{n}{%
  71.    <5>eufb5%
  72.    <6>eufb6%
  73.    <7>eufb7%
  74.    <8>eufb8%
  75.    <9>eufb9%
  76.    <10>eufb10%
  77.    <11>eufb10 at10.95pt%
  78.    <12>eufb10 at12pt%
  79.    <14>eufb14%
  80.    <17>eufb14 at17.28pt%
  81.    <20>eufb14 at20.74pt%
  82.    <25>eufb14 at24.88pt}{}
  83.  
  84. \extra@def{euf}{\hyphenchar#1\m@ne
  85.        \dimen@\fontdimen2#1%
  86.        \fontdimen3#1.4\dimen@
  87.        \fontdimen4#1.3\dimen@}
  88.       {}
  89.  
  90.  
  91. \new@mathgroup\msa@group
  92. \new@mathgroup\msb@group
  93. \define@mathgroup\mv@normal\msa@group{msa}{m}{n}
  94. \define@mathgroup\mv@normal\msb@group{msb}{m}{n}
  95. \edef\@tempa{\hexnumber@\msb@group}
  96. \newmathalphabet{\BBB}
  97. \addtoversion{normal}{\BBB}{msb}{m}{n}
  98.  
  99. %-----------------------------------------
  100. \declare@font{mathpi1}{m}{n}{mathpi1}
  101. \declare@font{mathpi2}{m}{n}{mathpi2}
  102. \declare@font{mathpi3}{m}{n}{mathpi3}
  103. \declare@font{mathpi4}{m}{n}{mathpi4}
  104. \declare@font{mathpi5}{m}{n}{mathpi5}
  105. \declare@font{mathpi6}{m}{n}{mathpi6}
  106. \new@mathgroup\pione@group
  107. \new@mathgroup\pitwo@group
  108. \new@mathgroup\pithree@group
  109. \new@mathgroup\pifour@group
  110. \new@mathgroup\pifive@group
  111. \new@mathgroup\pisix@group
  112.  
  113. \define@mathgroup\mv@normal\pione@group{mathpi1}{m}{n}
  114. \edef\@tempa{\hexnumber@\pione@group}
  115. \mathchardef\niceone="1\@tempa 41
  116. \define@mathgroup\mv@normal\pitwo@group{mathpi2}{m}{n}
  117. \edef\@tempa{\hexnumber@\pitwo@group}
  118. \mathchardef\nicetwo="1\@tempa 41
  119. \define@mathgroup\mv@normal\pithree@group{mathpi3}{m}{n}
  120. \edef\@tempa{\hexnumber@\pithree@group}
  121. \mathchardef\nicethree="1\@tempa 41
  122. \define@mathgroup\mv@normal\pifour@group{mathpi4}{m}{n}
  123. \edef\@tempa{\hexnumber@\pifour@group}
  124. \mathchardef\nicefour="1\@tempa 41
  125. \define@mathgroup\mv@normal\pifive@group{mathpi5}{m}{n}
  126. \edef\@tempa{\hexnumber@\pifive@group}
  127. \mathchardef\nicefive="1\@tempa 41
  128. \define@mathgroup\mv@normal\pisix@group{mathpi6}{m}{n}
  129. \edef\@tempa{\hexnumber@\pisix@group}
  130. \mathchardef\nicesix="1\@tempa 41
  131.  
  132.  
  133. \newmathalphabet{\CERNBB}
  134. \addtoversion{normal}{\CERNBB}{mathpi6}{m}{n}
  135. \newmathalphabet{\GOTHIC}
  136. \addtoversion{normal}{\GOTHIC}{mathpi2}{m}{n}
  137. \newmathalphabet{\UPGREEK}
  138. \addtoversion{normal}{\UPGREEK}{mathpi1}{m}{n}
  139. \newmathalphabet{\BGREEK}
  140. \addtoversion{normal}{\BGREEK}{mathpi4}{m}{n}
  141. \endinput
  142.